Cream of the Crop 11/Cream of the Crop 11-1.iso/program/airvb25.zip/VB.ZIP/ATEST.FRM

Text File | 1996-01-16 | 68KB | 1,955 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Aircraft Instrumentation VBX demo"
   ClientHeight    =   6615
   ClientLeft      =   1725
   ClientTop       =   1470
   ClientWidth     =   8100
   Height          =   7020
   Left            =   1665
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   441
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   540
   Top             =   1125
   Width           =   8220
   Begin AIR Air1
      ADFBearing      =   0
      AirspeedVFE     =   85
      AirspeedVMax    =   170
      AirspeedVNE     =   150
      AirspeedVNO     =   112
      AirspeedVS0     =   35
      AirspeedVS1     =   40
      AltBarometer    =   0   'False
      AltBarometricPressure=   20
      AutoRedraw      =   -1  'True
      AVersion        =   2.5
      BackColor       =   &H00C0C0C0&
      Bank            =   0
      BevelInner      =   1  ' 1 - Raised
      BevelOuter      =   2  ' 2 - Inset
      BevelWidth      =   2
      BorderWidth     =   2
      ClimbRateMax    =   0
      CompassStyle    =   0  ' 0 - Stationary
      DisplayMode     =   0  ' 0 - Compass
      FontSize        =   15
      Height          =   3795
      HSIBearing      =   0
      HSICompass      =   0   'False
      HSICourseDelta  =   0
      HSICourseDeviation=   0
      HSICourseDisplay=   0  ' 0 - CRS
      HSICourseHeading=   0
      HSIDistance     =   0
      HSIDistanceDisplay=   0  ' 0 - DME
      HSIGlideSlopeDelta=   0
      HSIGlideSlopeDeviation=   0
      HSINavigationSource=   0  ' 0 - VOR 1
      HSISpeed        =   0
      HSITime         =   0
      HSITimeSpeedDisplay=   0  ' 0 - TTG (time to go)
      Inclinometer    =   0
      Left            =   150
      MouseControl    =   -1  'True
      OBIARCFlag      =   0   'False
      OBIBackCourse   =   0   'False
      OBICourse       =   0
      OBICourseDeviation=   0
      OBIGlideSlope   =   0
      OBIGSFlag       =   0   'False
      OBINAVFlag      =   0   'False
      OBIToFrom       =   0  ' 0 - None
      OrdCourse       =   0
      Pitch           =   0
      RMIBearing      =   0
      RMICompass      =   0
      TabIndex        =   126
      Top             =   60
      Turn            =   0
      Value           =   0
      Width           =   3735
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Instrument Display Mode (DisplayMode)"
      Height          =   3855
      Left            =   4080
      TabIndex        =   0
      Top             =   0
      Width           =   3735
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "OBI - Omni-Bearing Indicator"
         Height          =   255
         Index           =   11
         Left            =   180
         TabIndex        =   12
         Top             =   2940
         Width           =   3435
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "RMI - Radio Magnetic Indicator"
         Height          =   255
         Index           =   10
         Left            =   180
         TabIndex        =   11
         Top             =   2700
         Width           =   3435
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "ADF - Automatic Direction Finder"
         Height          =   255
         Index           =   9
         Left            =   180
         TabIndex        =   10
         Top             =   2460
         Width           =   3435
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Course Indicator"
         Height          =   255
         Index           =   8
         Left            =   180
         TabIndex        =   9
         Top             =   2220
         Width           =   2085
      End
      Begin CheckBox Check2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Mouse Control"
         Height          =   225
         Left            =   180
         TabIndex        =   13
         Top             =   3480
         Value           =   1  'Checked
         Width           =   1755
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Turn Coordinator"
         Height          =   255
         Index           =   7
         Left            =   180
         TabIndex        =   8
         Top             =   1980
         Width           =   2085
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Artificial Horizon"
         Height          =   255
         Index           =   6
         Left            =   180
         TabIndex        =   7
         Top             =   1740
         Width           =   2445
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "HSI - Horizontal Situation Indicator"
         Height          =   255
         Index           =   5
         Left            =   180
         TabIndex        =   6
         Top             =   1500
         Width           =   3495
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Airspeed Indicator"
         Height          =   255
         Index           =   4
         Left            =   180
         TabIndex        =   5
         Top             =   1260
         Width           =   2325
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Vertical Speed Indicator"
         Height          =   255
         Index           =   3
         Left            =   180
         TabIndex        =   4
         Top             =   1020
         Width           =   2445
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Altimeter"
         Height          =   255
         Index           =   2
         Left            =   180
         TabIndex        =   3
         Top             =   780
         Width           =   2325
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Heading Indicator"
         Height          =   255
         Index           =   1
         Left            =   180
         TabIndex        =   2
         Top             =   540
         Width           =   2325
      End
      Begin OptionButton Option1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Analog Compass"
         Height          =   255
         Index           =   0
         Left            =   180
         TabIndex        =   1
         Top             =   300
         Value           =   -1  'True
         Width           =   2235
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Analog Compass"
      Height          =   2295
      Index           =   0
      Left            =   120
      TabIndex        =   14
      Top             =   3960
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   0
         Left            =   3240
         Max             =   360
         TabIndex        =   97
         Top             =   300
         Width           =   3495
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Stationary  (CompassStyle=0)"
         Height          =   255
         Index           =   0
         Left            =   3210
         TabIndex        =   16
         Top             =   750
         Width           =   3645
      End
      Begin OptionButton Option2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Floating  (CompassStyle=1)"
         Height          =   255
         Index           =   1
         Left            =   3210
         TabIndex        =   15
         Top             =   990
         Width           =   3105
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "0"
         Height          =   255
         Index           =   0
         Left            =   6840
         TabIndex        =   99
         Top             =   300
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Course Heading (Value):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   0
         Left            =   180
         TabIndex        =   98
         Top             =   300
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "OBI - Omni-Baring Indicator"
      Height          =   2295
      Index           =   11
      Left            =   120
      TabIndex        =   113
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin Frame Frame2
         BackColor       =   &H00C0C0C0&
         Caption         =   "Hemicircle of Radials Indicator"
         Height          =   1035
         Left            =   180
         TabIndex        =   34
         Top             =   1140
         Width           =   3015
         Begin OptionButton Option3
            BackColor       =   &H00C0C0C0&
            Caption         =   "From    (OBIToFrom=2)"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   195
            Index           =   2
            Left            =   300
            TabIndex        =   71
            Top             =   720
            Width           =   2235
         End
         Begin OptionButton Option3
            BackColor       =   &H00C0C0C0&
            Caption         =   "To       (OBIToFrom=1)"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   195
            Index           =   1
            Left            =   300
            TabIndex        =   72
            Top             =   480
            Width           =   2235
         End
         Begin OptionButton Option3
            BackColor       =   &H00C0C0C0&
            Caption         =   "None   (OBIToFrom=0)"
            FontBold        =   0   'False
            FontItalic      =   0   'False
            FontName        =   "MS Sans Serif"
            FontSize        =   8.25
            FontStrikethru  =   0   'False
            FontUnderline   =   0   'False
            Height          =   195
            Index           =   0
            Left            =   300
            TabIndex        =   102
            Top             =   240
            Width           =   2235
         End
      End
      Begin CheckBox Check4
         BackColor       =   &H00C0C0C0&
         Caption         =   "Back Course Indicator    (OBIBackCourse)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   1
         Left            =   3360
         TabIndex        =   124
         Top             =   1500
         Width           =   3735
      End
      Begin CheckBox Check4
         BackColor       =   &H00C0C0C0&
         Caption         =   "Arc Path Flag    (OBIArcFlag)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   0
         Left            =   3360
         TabIndex        =   123
         Top             =   1260
         Width           =   3735
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   28
         Left            =   3300
         Max             =   100
         Min             =   -100
         TabIndex        =   120
         Top             =   840
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   27
         Left            =   3300
         Max             =   360
         TabIndex        =   115
         Top             =   360
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   26
         Left            =   3300
         Max             =   100
         Min             =   -100
         TabIndex        =   114
         Top             =   600
         Width           =   3495
      End
      Begin CheckBox Check4
         BackColor       =   &H00C0C0C0&
         Caption         =   "NAV Flag    (OBINAVFlag)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   3
         Left            =   3360
         TabIndex        =   104
         Top             =   1980
         Width           =   3735
      End
      Begin CheckBox Check4
         BackColor       =   &H00C0C0C0&
         Caption         =   "Glide Slope Flag   (OBIGSFlag)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   2
         Left            =   3360
         TabIndex        =   125
         Top             =   1740
         Width           =   3735
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Glide Slope Deviation (OBIGlideSlope):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   28
         Left            =   240
         TabIndex        =   122
         Top             =   840
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "28"
         Height          =   255
         Index           =   28
         Left            =   6900
         TabIndex        =   121
         Top             =   840
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Course Selection (OBICourse)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   27
         Left            =   240
         TabIndex        =   119
         Top             =   360
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "27"
         Height          =   255
         Index           =   27
         Left            =   6900
         TabIndex        =   118
         Top             =   360
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Course Deviation (OBICourseDeviatioon):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   26
         Left            =   240
         TabIndex        =   117
         Top             =   600
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "26"
         Height          =   255
         Index           =   26
         Left            =   6900
         TabIndex        =   116
         Top             =   600
         Width           =   495
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "RMI - Radio Magnetic Indicator"
      Height          =   2295
      Index           =   10
      Left            =   120
      TabIndex        =   106
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   25
         Left            =   3300
         Max             =   360
         TabIndex        =   110
         Top             =   660
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   23
         Left            =   3300
         Max             =   360
         TabIndex        =   107
         Top             =   360
         Width           =   3495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "25"
         Height          =   255
         Index           =   25
         Left            =   6900
         TabIndex        =   112
         Top             =   660
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Bearing To Radio Beacon (RMIBearing):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   25
         Left            =   240
         TabIndex        =   111
         Top             =   660
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "23"
         Height          =   255
         Index           =   23
         Left            =   6900
         TabIndex        =   109
         Top             =   360
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Heading (RMICompass)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   23
         Left            =   240
         TabIndex        =   108
         Top             =   360
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "ADF - Automatic Direction Finder"
      Height          =   2295
      Index           =   9
      Left            =   120
      TabIndex        =   100
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   24
         Left            =   3300
         Max             =   360
         TabIndex        =   101
         Top             =   360
         Width           =   3495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Bearing To Radio Beacon (ADFBearing):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   24
         Left            =   240
         TabIndex        =   105
         Top             =   360
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "24"
         Height          =   255
         Index           =   24
         Left            =   6900
         TabIndex        =   103
         Top             =   360
         Width           =   495
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Course Indicator  (Actually this is a submarine control)"
      Height          =   2295
      Index           =   8
      Left            =   120
      TabIndex        =   26
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   15
         Left            =   3300
         Max             =   360
         TabIndex        =   29
         Top             =   660
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   16
         Left            =   3300
         Max             =   360
         TabIndex        =   28
         Top             =   360
         Width           =   3495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "15"
         Height          =   255
         Index           =   15
         Left            =   6900
         TabIndex        =   33
         Top             =   660
         Width           =   495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "16"
         Height          =   255
         Index           =   16
         Left            =   6900
         TabIndex        =   32
         Top             =   360
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Actual Course (Value):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   15
         Left            =   240
         TabIndex        =   31
         Top             =   660
         Width           =   3000
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Ordered Course (OrdCourse):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   16
         Left            =   240
         TabIndex        =   30
         Top             =   360
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Turn Coordinator"
      Height          =   2295
      Index           =   7
      Left            =   120
      TabIndex        =   25
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   12
         Left            =   3300
         Max             =   15
         Min             =   -15
         TabIndex        =   38
         Top             =   660
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   11
         Left            =   3300
         Max             =   360
         Min             =   -360
         TabIndex        =   35
         Top             =   360
         Width           =   3495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "12"
         Height          =   255
         Index           =   12
         Left            =   6900
         TabIndex        =   40
         Top             =   660
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Inclinometer (Inclinometer):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   12
         Left            =   240
         TabIndex        =   39
         Top             =   660
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "11"
         Height          =   255
         Index           =   11
         Left            =   6900
         TabIndex        =   37
         Top             =   360
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Rate Of Turn (Turn):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   11
         Left            =   240
         TabIndex        =   36
         Top             =   360
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Artificial Horizon"
      Height          =   2295
      Index           =   6
      Left            =   120
      TabIndex        =   24
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   10
         Left            =   3300
         Max             =   360
         TabIndex        =   44
         Top             =   660
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   9
         Left            =   3300
         Max             =   180
         Min             =   -180
         TabIndex        =   41
         Top             =   360
         Width           =   3495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "10"
         Height          =   255
         Index           =   10
         Left            =   6900
         TabIndex        =   46
         Top             =   660
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Bank (Bank):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   10
         Left            =   240
         TabIndex        =   45
         Top             =   660
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "9"
         Height          =   255
         Index           =   9
         Left            =   6900
         TabIndex        =   43
         Top             =   360
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Pitch (Pitch):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   9
         Left            =   240
         TabIndex        =   42
         Top             =   360
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "HSI"
      Height          =   2295
      Index           =   5
      Left            =   120
      TabIndex        =   22
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   14
         Left            =   3300
         Max             =   30
         Min             =   -30
         TabIndex        =   59
         Top             =   1560
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   13
         Left            =   3300
         Max             =   30
         Min             =   -30
         TabIndex        =   56
         Top             =   1260
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   8
         Left            =   3300
         Max             =   360
         TabIndex        =   53
         Top             =   960
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   7
         Left            =   3300
         Max             =   360
         TabIndex        =   50
         Top             =   660
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   6
         Left            =   3300
         Max             =   360
         TabIndex        =   47
         Top             =   360
         Width           =   3495
      End
      Begin CheckBox Check1
         BackColor       =   &H00C0C0C0&
         Caption         =   "Display Compass Card (HSICompass)"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   3300
         TabIndex        =   23
         Top             =   1920
         Width           =   3345
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "14"
         Height          =   255
         Index           =   14
         Left            =   6900
         TabIndex        =   61
         Top             =   1560
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "GS Deviation (HSIGlideSlopeDeviation):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   14
         Left            =   240
         TabIndex        =   60
         Top             =   1560
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "13"
         Height          =   255
         Index           =   13
         Left            =   6900
         TabIndex        =   58
         Top             =   1260
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Course Deviation (HSICourseDeviation):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   13
         Left            =   240
         TabIndex        =   57
         Top             =   1260
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "8"
         Height          =   255
         Index           =   8
         Left            =   6900
         TabIndex        =   55
         Top             =   960
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Course (HSICourseHeading):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   8
         Left            =   240
         TabIndex        =   54
         Top             =   960
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "7"
         Height          =   255
         Index           =   7
         Left            =   6900
         TabIndex        =   52
         Top             =   660
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Bearing (HSIBearing):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   7
         Left            =   240
         TabIndex        =   51
         Top             =   660
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "6"
         Height          =   255
         Index           =   6
         Left            =   6900
         TabIndex        =   49
         Top             =   360
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Heading (Value):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   6
         Left            =   240
         TabIndex        =   48
         Top             =   360
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Airspeed Indicator"
      Height          =   2295
      Index           =   4
      Left            =   120
      TabIndex        =   21
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   22
         Left            =   3360
         Max             =   360
         TabIndex        =   82
         Top             =   1740
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   21
         Left            =   3360
         Max             =   360
         TabIndex        =   79
         Top             =   1500
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   20
         Left            =   3360
         Max             =   360
         TabIndex        =   76
         Top             =   1260
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   19
         Left            =   3360
         Max             =   360
         TabIndex        =   73
         Top             =   1020
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   18
         Left            =   3360
         Max             =   360
         TabIndex        =   68
         Top             =   780
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   17
         Left            =   3360
         Max             =   360
         TabIndex        =   65
         Top             =   540
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   5
         Left            =   3360
         Max             =   360
         TabIndex        =   62
         Top             =   300
         Width           =   3495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "22"
         Height          =   255
         Index           =   22
         Left            =   6960
         TabIndex        =   84
         Top             =   1740
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Max displayed speed (AirspeedVmax):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   22
         Left            =   300
         TabIndex        =   83
         Top             =   1740
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "21"
         Height          =   255
         Index           =   21
         Left            =   6960
         TabIndex        =   81
         Top             =   1500
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Never exceed speed (AirspeedVne):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   21
         Left            =   300
         TabIndex        =   80
         Top             =   1500
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "20"
         Height          =   255
         Index           =   20
         Left            =   6960
         TabIndex        =   78
         Top             =   1260
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Max cruise speed (AirspeedVno):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   20
         Left            =   300
         TabIndex        =   77
         Top             =   1260
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "19"
         Height          =   255
         Index           =   19
         Left            =   6960
         TabIndex        =   75
         Top             =   1020
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Max speed flaps extended (AirspeedVfe):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   19
         Left            =   180
         TabIndex        =   74
         Top             =   1020
         Width           =   3120
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "18"
         Height          =   255
         Index           =   18
         Left            =   6960
         TabIndex        =   70
         Top             =   780
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Stall Speed w/o Flaps (AirspeedVs1):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   18
         Left            =   300
         TabIndex        =   69
         Top             =   780
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "17"
         Height          =   255
         Index           =   17
         Left            =   6960
         TabIndex        =   67
         Top             =   540
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Stall Speed w/ Flaps (AirspeedVs0):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   17
         Left            =   300
         TabIndex        =   66
         Top             =   540
         Width           =   3000
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "5"
         Height          =   255
         Index           =   5
         Left            =   6960
         TabIndex        =   64
         Top             =   300
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Airspeed (Value):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   5
         Left            =   300
         TabIndex        =   63
         Top             =   300
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Vertical Speed Indicator"
      Height          =   2295
      Index           =   3
      Left            =   120
      TabIndex        =   20
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   4
         Left            =   3300
         Max             =   2000
         Min             =   -2000
         TabIndex        =   85
         Top             =   300
         Width           =   3495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "4"
         Height          =   255
         Index           =   4
         Left            =   6900
         TabIndex        =   87
         Top             =   300
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Rate Of Climb (Value):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   4
         Left            =   240
         TabIndex        =   86
         Top             =   300
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Altimeter"
      Height          =   2295
      Index           =   2
      Left            =   120
      TabIndex        =   18
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   3
         Left            =   3300
         Max             =   4000
         Min             =   2000
         TabIndex        =   91
         Top             =   600
         Value           =   3000
         Width           =   3495
      End
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   2
         Left            =   3300
         Max             =   32000
         TabIndex        =   88
         Top             =   300
         Width           =   3495
      End
      Begin CheckBox Check3
         BackColor       =   &H00C0C0C0&
         Caption         =   "Display Barometric Pressure (AltBarometer)"
         Height          =   225
         Left            =   3300
         TabIndex        =   19
         Top             =   1080
         Width           =   4095
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "3"
         Height          =   255
         Index           =   3
         Left            =   6900
         TabIndex        =   93
         Top             =   600
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Barometer (AltBarametricPressure):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   3
         Left            =   60
         TabIndex        =   92
         Top             =   600
         Width           =   3180
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "2"
         Height          =   255
         Index           =   2
         Left            =   6900
         TabIndex        =   90
         Top             =   300
         Width           =   735
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Altitude (Value):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   2
         Left            =   240
         TabIndex        =   89
         Top             =   300
         Width           =   3000
      End
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Heading Indicator"
      Height          =   2295
      Index           =   1
      Left            =   120
      TabIndex        =   17
      Top             =   3960
      Visible         =   0   'False
      Width           =   7695
      Begin HScrollBar HScroll1
         Height          =   255
         Index           =   1
         Left            =   3300
         Max             =   360
         TabIndex        =   94
         Top             =   360
         Width           =   3495
      End
      Begin Label Label2
         BackStyle       =   0  'Transparent
         Caption         =   "1"
         Height          =   255
         Index           =   1
         Left            =   6900
         TabIndex        =   96
         Top             =   360
         Width           =   495
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         BackStyle       =   0  'Transparent
         Caption         =   "Course Heading (Value):"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   195
         Index           =   1
         Left            =   240
         TabIndex        =   95
         Top             =   360
         Width           =   3000
      End
   End
   Begin Label Label3
      BackStyle       =   0  'Transparent
      Caption         =   "*  Corresponding control property names are indicated in parenthesis"
      Height          =   255
      Left            =   180
      TabIndex        =   27
      Top             =   6300
      Width           =   7455
   End
End
Dim lastmode As Integer

Sub Air1_Turn ()

    Select Case air1.DisplayMode
        Case 0 'analog compass
            hscroll1(0) = air1
            label2(0) = air1
        Case 1 'heading indicator
            hscroll1(1) = air1
            label2(1) = air1
        Case 2 'altimeter
            If air1 < hscroll1(2).Min Then air1 = hscroll1(2).Min
            If air1 > hscroll1(2).Max Then air1 = hscroll1(2).Max
            hscroll1(2) = air1
            label2(2) = air1
        Case 3 'vertical speed indicator
            hscroll1(4) = air1
            label2(4) = air1
        Case 4 'airspeed indicator
            hscroll1(5) = air1
            label2(5) = air1
        Case 5 'HSI
            hscroll1(6) = air1
            label2(6) = air1
        Case 8 'Course indicator
            hscroll1(15) = air1
            label2(15) = air1
        Case 9 'ADF
            hscroll1(24) = air1.ADFBearing
            label2(24) = air1.ADFBearing
        Case 10 'RMI
            hscroll1(23) = air1.RMICompass
            hscroll1(25) = air1.RMIBearing
            label2(23) = air1.RMICompass
            label2(25) = air1.RMIBearing
        Case 11 'OBI
            hscroll1(27) = air1.OBICourse
            label2(27) = air1.OBICourse
    End Select


End Sub

Sub Check1_Click ()

    air1.HSICompass = check1

End Sub

Sub Check2_Click ()

    air1.MouseControl = check2

End Sub

Sub Check3_Click ()

    air1.AltBarometer = check3

End Sub

Sub Check4_Click (index As Integer)

    air1.OBIARCFlag = -check4(0)
    air1.OBIBackCourse = -check4(1)
    air1.OBIGSFlag = -check4(2)
    air1.OBINAVFlag = -check4(3)

End Sub

Sub Form_Load ()

    lastmode = 0

End Sub

Sub HScroll1_Change (index As Integer)

    Select Case index
        Case 0 'analog compass
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 1 ' heading indicator
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 2 ' altitude
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 3 ' barometric pressure
            air1.AltBarometricPressure = hscroll1(index) / 100
            label2(index) = hscroll1(index) / 100
        Case 4 ' vertical speed
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 5 ' airspeed indicator
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 6 ' hsi course
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 7 ' HSI Bearing
            air1.HSIBearing = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 8 ' HSI Course Heading
            air1.HSICourseHeading = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 13 ' HSI Course Deviation
            air1.HSICourseDeviation = hscroll1(index) / 10
            label2(index) = hscroll1(index) / 10
        Case 14 ' HSI Glide Slope Deviation
            air1.HSIGlideSlopeDeviation = hscroll1(index) / 10
            label2(index) = hscroll1(index) / 10
        Case 9 ' Pitch
            air1.Pitch = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 10 ' bank
            air1.Bank = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 11 ' Turn
            air1.Turn = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 12 ' Inclinometer
            air1.Inclinometer = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 15 'Ordered course
            air1.OrdCourse = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 16 'actual course
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 17 'AirspeedVs0
            air1.AirspeedVS0 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 18 'AirspeedVs1
            air1.AirspeedVS1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 19 'AirspeedVfe
            air1.AirspeedVFE = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 20 'AirspeedVno
            air1.AirspeedVNO = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 21 'AirspeedVne
            air1.AirspeedVNE = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 22 'AirspeedVmax
            air1.AirspeedVMax = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 23 'RMICompass
            air1.RMICompass = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 24 'ADFBearing
            air1.ADFBearing = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 25 'RMIBearing
            air1.RMIBearing = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 26 'OBICourseDeviation
            air1.OBICourseDeviation = hscroll1(index) / 100
            label2(index) = hscroll1(index) / 100
        Case 27 'OBICourse
            air1.OBICourse = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 28 'OBIGlideSlope
            air1.OBIGlideSlope = hscroll1(index) / 100
            label2(index) = hscroll1(index) / 100
    End Select

End Sub

Sub HScroll1_Scroll (index As Integer)

    Select Case index
        Case 0 'analog compass
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 1 ' heading indicator
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 2 ' altitude
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 3 ' barometric pressure
            air1.AltBarometricPressure = hscroll1(index) / 100
            label2(index) = hscroll1(index) / 100
        Case 4 ' vertical speed
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 5 ' airspeed indicator
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 6 ' hsi course
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 7 ' HSI Bearing
            air1.HSIBearing = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 8 ' HSI Course Heading
            air1.HSICourseHeading = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 13 ' HSI Course Deviation
            air1.HSICourseDeviation = hscroll1(index) / 10
            label2(index) = hscroll1(index) / 10
        Case 14 ' HSI Glide Slope Deviation
            air1.HSIGlideSlopeDeviation = hscroll1(index) / 10
            label2(index) = hscroll1(index) / 10
        Case 9 ' Pitch
            air1.Pitch = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 10 ' bank
            air1.Bank = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 11 ' Turn
            air1.Turn = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 12 ' Inclinometer
            air1.Inclinometer = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 15 'Ordered course
            air1.OrdCourse = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 16 'actual course
            air1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 17 'AirspeedVs0
            air1.AirspeedVS0 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 18 'AirspeedVs1
            air1.AirspeedVS1 = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 19 'AirspeedVfe
            air1.AirspeedVFE = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 20 'AirspeedVno
            air1.AirspeedVNO = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 21 'AirspeedVne
            air1.AirspeedVNE = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 22 'AirspeedVmax
            air1.AirspeedVMax = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 23 'RMICompass
            air1.RMICompass = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 24 'ADFBearing
            air1.ADFBearing = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 25 'RMIBearing
            air1.RMIBearing = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 26 'OBICourseDeviation
            air1.OBICourseDeviation = hscroll1(index) / 100
            label2(index) = hscroll1(index) / 100
        Case 27 'OBICourse
            air1.OBICourse = hscroll1(index)
            label2(index) = hscroll1(index)
        Case 28 'OBIGlideSlope
            air1.OBIGlideSlope = hscroll1(index) / 100
            label2(index) = hscroll1(index) / 100
    End Select

End Sub

Sub Option1_Click (index As Integer)

    frame3(lastmode).Visible = False
    frame3(index).Visible = True
    lastmode = index

    air1.DisplayMode = index

    Select Case index
        Case 0 'analog compass
            If air1 > hscroll1(0).Max Then air1 = hscroll1(0).Max
            hscroll1(0) = air1
            label2(0) = air1
            option2(air1.CompassStyle) = True
        Case 1 'heading indicator
            If air1 > hscroll1(1).Max Then air1 = hscroll1(1).Max
            hscroll1(1) = air1
            label2(1) = air1
        Case 2 'altimeter
            If air1 > hscroll1(2).Max Then air1 = hscroll1(2).Max
            hscroll1(2) = air1
            hscroll1(3) = air1.AltBarometricPressure * 100
            label2(2) = air1
            label2(3) = air1.AltBarometricPressure * 100
            check3 = air1.AltBarometer
        Case 3 'vertical speed indicator
            If air1 > hscroll1(4).Max Then air1 = hscroll1(4).Max
            hscroll1(4) = air1
            label2(4) = air1
        Case 4 'airspeed indicator
            If air1 > hscroll1(5).Max Then air1 = hscroll1(5).Max
            hscroll1(5) = air1
            hscroll1(17) = air1.AirspeedVS0
            hscroll1(18) = air1.AirspeedVS1
            hscroll1(19) = air1.AirspeedVFE
            hscroll1(20) = air1.AirspeedVNO
            hscroll1(21) = air1.AirspeedVNE
            hscroll1(22) = air1.AirspeedVMax
            label2(5) = air1
            label2(17) = air1.AirspeedVS0
            label2(18) = air1.AirspeedVS1
            label2(19) = air1.AirspeedVFE
            label2(20) = air1.AirspeedVNO
            label2(21) = air1.AirspeedVNE
            label2(22) = air1.AirspeedVMax
        Case 5 'HSI
            If air1 > hscroll1(6).Max Then air1 = hscroll1(6).Max
            hscroll1(6) = air1
            hscroll1(7) = air1.HSIBearing
            hscroll1(8) = air1.HSICourseHeading
            hscroll1(13) = air1.HSICourseDeviation
            hscroll1(14) = air1.HSIGlideSlopeDeviation
            label2(6) = air1
            label2(7) = air1.HSIBearing
            label2(8) = air1.HSICourseHeading
            label2(13) = air1.HSICourseDeviation
            label2(14) = air1.HSIGlideSlopeDeviation
            check1 = -air1.HSICompass
        Case 6 'Artificial horizon
            hscroll1(9) = air1.Pitch
            hscroll1(10) = air1.Bank
            label2(9) = air1.Pitch
            label2(10) = air1.Bank
        Case 7 'Turn Coordinator
            hscroll1(11) = air1.Turn
            hscroll1(12) = air1.Inclinometer
            label2(11) = air1.Turn
            label2(12) = air1.Inclinometer
        Case 8 'Course indicator
            If air1 > hscroll1(15).Max Then air1 = hscroll1(15).Max
            hscroll1(16) = air1.OrdCourse
            hscroll1(15) = air1
            label2(16) = air1.OrdCourse
            label2(15) = air1
        Case 9 'ADF
            hscroll1(24) = air1.ADFBearing
            label2(24) = air1.ADFBearing
        Case 10 'RMI
            hscroll1(23) = air1.RMICompass
            hscroll1(25) = air1.RMIBearing
            label2(23) = air1.RMICompass
            label2(25) = air1.RMIBearing
        Case 11 'OBI
            hscroll1(26) = air1.OBICourseDeviation * 100
            hscroll1(27) = air1.OBICourse
            hscroll1(28) = air1.OBIGlideSlope * 100
            label2(26) = air1.OBICourseDeviation
            label2(27) = air1.OBICourse
            label2(28) = air1.OBIGlideSlope

            option3(air1.OBIToFrom) = True
            check4(0) = -air1.OBIARCFlag
            check4(1) = -air1.OBIBackCourse
            check4(2) = -air1.OBIGSFlag
            check4(3) = -air1.OBINAVFlag
    End Select

End Sub

Sub Option2_Click (index As Integer)

    air1.CompassStyle = index

End Sub

Sub Option3_Click (index As Integer)

    air1.OBIToFrom = index

End Sub